home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-11
/
fdical.zip
/
HELP.PRG
< prev
next >
Wrap
Text File
|
1993-01-04
|
675b
|
40 lines
* HELP.PRG
PARAM call_prg,line_number,input_var
* return immediately if HELP is calling on itself!
IF Call_Prg = [HELP]
RETURN
ENDIF
PRIVATE oldarea,;
wtitle,;
wfields,;
mtitle,;
top_row,;
left_col,;
bot_row,;
right_col,;
group_key,;
group,;
key_field,;
oldorder
STORE [] TO group_key,group
oldarea = SELE()
DO CASE
CASE input_var = [MFROM] .AND. TYPE(input_var) = [D]
DO cal_help WITH [mfrom], [mthru]
KEYBOARD CHR(13)
OTHERWISE
DO libhelp WITH call_prg, input_var
ENDCASE
SELE (oldarea)
RETURN
*** eof ****